home *** CD-ROM | disk | FTP | other *** search
/ Aminet 5 / Aminet 5 - March 1995.iso / Aminet / text / misc / PWIDXM.lha / MakePhraseFile < prev    next >
Text File  |  1994-10-12  |  1KB  |  59 lines
  1. /* Make Phrase File entry */
  2.  
  3. /* Copyright 1992 by Software Industry & General Hardware */
  4. /* All Rights Reserved */
  5.  
  6. /* Use of this product is at your own risk. */
  7.  
  8. /* Software Industry & General Hardware is not responsible
  9.    for loss of of data or damage to data or equipment.    */
  10.  
  11. OPTIONS RESULTS
  12. Extract
  13. Phrase = RESULT
  14. /* if an error occured in obtaining our phrase then return
  15.    to ProWrite(TM) with complaint
  16. */
  17.  
  18. If RC ~= 0 Then EXIT RC
  19.  
  20. /* Extract removes the text, so put the exact phrase back
  21.    into the file where it was
  22. */
  23.  
  24. Type Phrase
  25.  
  26. /* Strip off the trailing spaces on any phrases
  27. */
  28.  
  29. Phrase = TRIM( Phrase )
  30.  
  31. /* Check to see if PhraseFile exists already, if so add to it,
  32.    if not create it.
  33. */
  34. IF ~EXISTS( "T:PhraseFile" ) THEN DO
  35.    OPEN( PF, "T:PhraseFile", WRITE )
  36.    WRITELN( PF, Phrase );
  37.    CLOSE( PF )
  38.   END
  39.  ELSE DO
  40.   /* Check for duplicates */
  41.   OPEN( PF, "T:PhraseFile", READ)
  42.   DO WHILE ~EOF(PF)
  43.     OldPhrase = READLN( PF )
  44.     IF OldPhrase = Phrase THEN BREAK
  45.   END
  46.  
  47.   CLOSE( PF )
  48.   IF OldPhrase ~= Phrase THEN DO /* write phrase it is not a duplicate */
  49.     OPEN( PF, "T:PhraseFile", APPEND)
  50.  
  51.     /* Write the phrase with a newline character */
  52.     WRITELN( PF, Phrase )
  53.     /* shutdown the file and close it */
  54.     CLOSE( PF )
  55.   END
  56.  END
  57.  /* return with success status */
  58. EXIT 0
  59.